INSTRUCTION TEST 
MD-11-DZTMF-D 





me em me ee em a EE TS LT 


woe eee 0 ee oe — 


ee we ae oo 


| "45 B21 SUPPLEMENTAL INST TEST MACYLI 271732) O4-NOV-76 11:18 PAGE 2 
coTheD. Sa: 
IDENTIFICATION 
PRODUCT CODE: MAINDEC=11-DZTMF-D-D 
PRODUCT NAME: TMA,B-11/TU10,N,W SUPPLEMENTAL INST. TEST 
PROGRAM DATE: AUGUST 1976 
MAINTAINER: DIAGNOSTIC ENGINEERING 
AUTHOR: R. B. BARNES 
REVISED BY: RON PLATUKIS/R. SOLER 
THE INFORMATION IN THIS DOCUMENT IS SUBJECT TO CHANGE WITHOUT 
NOTICE AND SHOULD NOT BE CONSTRUED QS A COMMITMENT BY DIGITAL 
EQUIPMENT CORPORATION. DIGITAL EQUIPMENT CORPORATION ASSUMES 


N THIS DOCUMENT 
THIS DOCUMENT IS FURNISHED UNDER A 
COPIED IN ACCORDANCE WITH THE 


OR 
N ASSUMES NO RESPONSIBILITY FOR 
S SOFTWARE ON EQUIPMENT THAT IS 


L 
T ° 
DIGITAL EQUIPMENT CORPORATIO 
THE USE OR RELIABILITY OF IT 
NOT SUPPLIED BY DIGITAL. 


COPYRIGHT (C) 1975, 1976 BY DIGITAL EQUIPMENT CORPORATION 





TABLE OF CONTENTS 
PARAGRAPH —-- SUBJECT 


00 NOUN Gotue- 
yi raet 3 
4 
oe 
ne 
—T 
=o 

ame 

wo 
=< 
m 

IMiN COI 


9) 
TEST DESCRIPTION 
LISTING 


7 — = - nas ‘5d — - 2, 7 ’ . Col 
ins, 8-11 SUPPLEMENTAL INST TEST MACYIL 27(732) O4-NOV-76 L1:18 PAGE 3 
DITHFD. SRE 3 


= 





mee ee 

















TMA, 8-3 i. _qabbheeetecitteer INST TEST MACY 271732) O8-NOV-76 11:15 PAGE 4 


2. REQUIREMENTS 


| ODTRFD.§ 
| 1. - ABSTRACT 
_ THIS PROGRAM 1S INTENDED 70_8E USED IN ADDITION TO 
~ THE TMA.B-11 INSTRUCTION TEST (MAINDEC-11-D2TMA) 
10 TE TESTING OF THE RAG TAPE CONTROLLER. 
| ae cK Vee fha,6-11 PERT SUR DATE TRANCEER AT OD 
SVSE STARTING ADDRESS. AND OP at A PRCOMPLETE TIME OUT. 
i 


- Ow ore CORE PROCESSOR 


CONSOLE T 
b.. TMA-11 OR. THe=11 TAPE CONTROLLER (ONLY) 
1-8 TAPE TRANSPORTS (TU10,N,W) 


\ 


3. LOADING PROCEDURE ) 


ee 
(ox 
“~ 


A. USE STANDARD PROCEDURE FOR LOADING BINARY PAPER TAPE 
- B. THIS PROGRAM IS LOADABLE AND CHAINABLE PER XXDP, ACT11, 
| AND SLIDE, IN 8K OF MEMORY. (SEE 7.1) 


a ee 


| THERE ARE TWO (2) STARTING ADDRESSES THAT MAY BE USED; 
| ; 200(6) AND 210(8). 


A. 200(8): poe ar THIS ADDRESS WILL CAUSE A wos 
TION TO BE Trier rare ALSO A 
THE UNIT TRANSPORT _— 


aa Pera ete OF UN ve oR A UNeHRNED PIER Aye, 


TYPING THE DESIRED NUMBER OR A CARR RETURN. 
IF THE SELECTED UNIT IS NOT_AVAI a MESSAGE WILL 
BE PRINTED SO STAY NG, AND THE UNIT CT REQUEST REPEATED. 


B. 210(8): STARTING AT THIS ADDRESS WILL NOT PRINT THE HEADER OR THE 
UNIT SELECT REQUEST AND IS INTENDED AS A RESTART ADDRESS ONLY. 
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s. CONSOLE SWITCH SETTING 


ALL SWITCHES EXCEPT 3-9 ARE USED AND THE NORMAL, Om CEFAULT, RUN © 
TS DONE_WITH ALL SWITCHES SET TO ZERO (0). 
ALL SWITCHES ARE DYNAMIC AND MAY BE CHANGED AT ANY TIME. 


a 

SW14: he io ON ERROR (SCOPE) 
O=CONTINUE 

SW13: J=INHIBIT ERROR TYPE OUT 


O=PRINT out EERO 
SWi2: IsINHIBIT ITERATION##(FIRST PASS IS SINGLE ITERATION) ## 
O=ITERATE EACH TEST ITS ASSIGNED AMOUNT 
SW11: AeA TUS OE CYCLE 
T AT END OF PASS 
SWi0: I=HALT AT ENC ur CONSENT TEST 


O=CONTINUE 
an-3 NOT USED 
SWe-O: SELECT INDIVIDUAL TEST (1-4)## 00 = DO ALL TESTS 


ee re ee ee we eee 


ee 


| 5.1 THIS PROGRAM HAS BEEN MODIFIED TO. RUN ON A PROCESSOR WITH OR WITHOUT 
A HARDWARE SWITCH REGISTER. WHEN FI T EXECUTED THE PROGRAM TESTS 
THE EXISTENCE OF A HARDWARE SWITCH REGISTER. IF NoT FOUND A 
SOFTWARE SWITCH REGISTER LOCATION (SWREG=LOC. 176 ) IS DEFAULTED TO. 
IF THIS IS THE CASE, UPON EXECUT ON THE CONTENTS OF THE SLREG. ARE 
IN N-OCTAL ON THE CONSOLE T AND ANY CHANGES ARE REQUESTED 


(TE) SWR=XXXXXX NEW= 
POSSIBLE RESPONSES ARE: 


1. <CR> ae CHANGES ARE TO BE MADE 

e & DIGITS 0-7 Mi RLU AST IN OCTAL THE NEW — REGISTER 
;LAST ofert FOLLOWED BY < 

3. tU REENTERING VALUE IF ERROR’ TS COMMITTED 

ee IN rSUREG VALUE. 

4. <LF> ONLY VALID FOR ACT-11 SYSTEMS-DO NOT USE 

BUTT ANTS THE PROGRAM Se ne THE ABILITY TO DYNAMICALLY CHANGE THE 

gt S OF SWREG ae CuT i BY STRIKING s 








( A REQUEST 
THE CoN Stent Mia Riel WHICH OER PROCE SEES IN KEY AREAS OF TOE PROGRAM 
CODE CTE) ERR NES, AFTER HALTS END OF PRs, AND OTHER 


ee 


FOL 
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6. ERROR PRINTOUTS 


THERE ARE THREE (3) TYPES OF ERROR PRINTOUTS WHICH MAY 
APPEAR: STATUS ERROR, DATA ERROR, POSITION ERROR. 


&. STATUS ERROR: ANY READ, WRITE, OR SPACE OPERATION WHICH 
RESULTS IN SOME BAD STATUS (BIT 15 OF MTC), 
OR UNEXPECTED BUS ADDRESS. OR INCORRECT 
BYTE COUNT, WILL BE PRINTED. 














B. DATA ERROR: ANY READ OPERATION WHICH RESULTS IN UNEXPECTED 
DATA WILL BE PRINTED. 
C. POSITION ERROR: ANY SPACE OR REWIND OPERATION RESULTING IN 


UNEXPECTED STATUS WILL BE PRINTED. 


EXAMPLES### 
1. THE FOLLOWING EXAMPLE SHOWS A TYPICAL STATUS ERROR. 


TEST1: WRITE FROM OOD BYTE 
WRITE ERROR THIS PRINT SHOWS THAT WHILE EXECUTING 


MTS: 10101 TEST 1 ON UNIT 2 AT 800 BP 
TC: 161204 PARITY ERROR OCCURED. THE BYTE COUNT 
: IS ZERO AS IT 
MTCA: 6003 6003 ADDRESS IS AS EXPECTED. 


2. THE FOLLOWING EXAMPLE SHOWS A TYPICAL DATA ERROR. 
TEST 2: READ TO ODD SYTE 
TA ERROR 


DA THIS PRINT SHOWS THAT A SINGLE BIT WAS 
ENO o0000 PICKED UP IN BOTH phy NUMBER ZERO 
G: (0) AND CHARACTER NUMBER THREE (3). 

ae 

G: 00000011 

B: 01000011 


3. THE FOLLOWING EXAMPLE SHOWS AN ERROR DURING A REWIND OPERATION. 


TEST4: OPI TOO LONG 
REWIND ERROR: NO BOT 


me ee ee 


a 
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OPERATION 


THE PROCEDURES FOR OPERATING Tae PROGRAM ARE QUITE 
SIMPLE AND REQUIRE ONLY A FEW STEPS: 


1. LOAD ADDRESS 200 OR 210 
- Pele tee FOR DESIRED TEST SEQUENCE 


A or Fae | ee ARE oonents ete ip we foe? 


S ALL SWITCHES 
OWN (0). be aK NG OBROKT het ce 1.25 MINUTES 
0 RUN; iol gi Ho ef INAIBI (SWil=1), THE 
PRO 75 MINUTES. THE END OF PASS. 

1S nOTED BY A PUN IN AB OUT atthe END OF pase AND THE NUMBER OF 


SINGLE TEST SELECTION: (SWO-SU3) 


WHEN SWO-3 ARE SET TO ZERO (0) SCHEDULAR WILL 

EXECUTE AL TESTS: {i-4) IN Oo neNCE AS A SINGLE PASS. 
F SWO-3 ARE SET TO SOME NUMBER BETWEEN 1 AND 4 

THEN THAT PERTTCULAR ore WILL BE EXECUTED CONTINUOUSLY. 
PROGRAM STOPPED 


N A ONE CT_TES 

N ANY ORDER (UP OR DOWN) YE CAUSE EACH TEST 
SELF CONTAINED. 
IN MODE RUNS A SINGLE PASS ON DRIVE O WITH 7 OR 9 TRACK 
THE STANDARD UNIBUS ADDRESS. 





os 
wt 
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8. TEST DESCRIPTION 


TEST1: WRITE FROM ODD BYTE 


TEST2: 


THE PURPOSE OF THIS TEST IS TO ASSURE THAT DATA MAY BE 
Mya 22 FROM MEMORY TO TAPE STARTING A OM_AN ODD 
YTE ADDRESS. THE Te WILL WRITE A alk we? BYTE RECORD 
ROM AN SS _(WOATA+1) AND READ THAT RECORD 
BAK INTO AN EVEN popes (RDATA). NO STATUS ERROR SHOULD 
AND THE READ DATA SHOULD BE POSITIONED PROPERLY. 
THE URE CORD IS SIX BYES LONG, EACH BYTE IS ITS NUMBER (0,1,2,3,4,5) 


READ TO ODD BYTE 


THE PURPOSE OF THIS TEST IS 0 ASSURE THAT DATA MAY BE 
TRANSFERRED FROM TAPE TO MEMORY STARTING AT AN ODD ite 
ADDRESS. THE PROCEDURE IS THE SAME AS IN TEST ONE (1), 
EXCEPT THAT THE WRITE IS FROM AN EVEN ~ a (WOATA) 
AND THE READ IS TO AN ODD ADDRESS (RDATA+1) 


TEST3:° OPI TOO LONG (OPI = BIT 8 OF MTS) 


TEST4: 


9. LISTING 


288 


THE PURPOSE OF _ THIS TEST IS TO ASSURE THAT 
WILL SHUTDOWN THE DRIVE BEFORE THIRTY FIVE FEET OF BLANK 
TAPE IS PASSED. THE PROCEDURE IS TO PERFORM A WRITE WITH 


soe Cte. Doe Je £2 FOU i a 
IS SEVEN SECONDS (7SEC) OR ABOUT TWENTY-SIX FEET ( 
OF TAPE. THIRTY-FIVE FEET OF TAPE REFLE 
TOLERANCE FOR OPI. 


OPI TOO SHORT (OPI = BIT 8 OF MTS) 


THE PURPOSE THIS T TEST sr Is 7 ASSURE THAT THE OPI T NER 
WILL NOT SHU ORE SIXTEEN FEET (16 

OF BLANK TAPE IS PASSED THE PROCEDURE IS THE SAME 

AS IN TEST THREE (3), HOWEVER OPI IS NOT EXPECTED SEFORE 
THE FIRST RECORD IS FOUND (16 FEET DOWN TAPE). T 

SIXTEEN FEET OF TAPE RELECTS THE MINIMUM TOLERANCE FOR OPI. 


* « 
ot 
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230 TITLE TMA B11, SUPP SUPPLEMENTAL INST TEST 

31 ee NF- 

293 BA ORES 

234 ‘ENABLE ABS, AMA 

295 “MCALL .$ACTII 

296 

er 

a sREGISTER EQUIVSkexeeexeae 

301 oo000 RO=”0 

302 900001 Ri=%1 

393 porage2 Rez) 

304 00003 R3=% 

305 009004 R4=%4 

306 0s RS=%5 

307 SP=%6 

308 000007 PC=%7 

303 

ai) ; TRAP CATCHERSHXXHHXHKES 

313 
| 313 .SBTTL ACTI1 HOOKS 
315 j RELRRERERRELERL LEK RELA RAEL EERE LEELA EEE LEER EE REESE EARL ARE LE REESE 
| 316 HOOKS REQUIRED BY ACT1I1 
wes, 001000 $SVPC=. SAVE PC 
| 318 OO0046 246 | 
| 313 po0046 O01660 SENDAD :;1)SET LOC.46 TO ADDRESS OF SENDAD IN .SEOP 
#2) oooose 90000 “WORD O ;32)SET LOC.52 TO ZERO 
061000 " =$SVPC 2? RESTORE PC 
- 
| 325 5 RERRAALLA LALA REL LAL ELLA RELA LALAELRLLEVELERREREELELELE 
| 352 ;NOTE: PROGRAM HAS BEEN MODIFIED TO RUN WITH OR WITHOUT 
| 397 A HARDWARE SWITCH REGISTER-REFER TO DOCUMENT 
328 PEERY Pr PE PER STEP EMT eT TET eer eT Meet er Tir er ire ren 


ee re = ee 
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EoTAED Sere ACTII HOOKS 
a0 sTTY INTERRUPT VECTORS4#*4444%% 
a36 00069 .=60 
000969 g04410 TTINT ;TTY INTERRUPT HANDLER 

334 O00C&2 900000 0 
ps 
336 
a3¢ ;SOFTWARE SWITCH REGISTER LOCATIONSk#exxeeeeeee 
339 000174 .=174 
340 000174 000000 DISPREG:0 
aii 000176 900000 SWREG: 0 
343 
344 sSTARTING ADDRESS#HEHRAEHRKEEEEE 
345 000200 .=200 
346 000200 005000 CLR RO 

aie 000282 000137 001000 JMP START ;PROGRAM START 
349 000210 -=210 
350 000210 O1e700 000001 MOV #1,R0 
zed 000214 000137 001006 JMP RSTART ;NO HEADER START 
sea ;TMA,B-11 INTERRUPT VECTORH###eeexH% 

| 355 oo0224 -=224 

| $356 000224 004370 MTINT ;TAPE INTERRUPT HANDLER 
357 000226 000340 340 





ee 6 + ee ee  - 


— nn rn rr i a en eo eee 


OS TAFD-SR 
359 


a es en 3 ee 


mi | eT ; eT TEST MACY11 271732) O4-NOV-76 11:15 PAGE li 


34 
000636 


RCTi1 
000600 










KO1 


.=600 
; CONSTANTS ##eexeEREE 
MTS; 172520 ; TAPE STATUS REGISTER 
: COMMAND REGISTER 
MTBC: 172524 : TAPE BYTE COUNTER 


MTBA: 172526 BUS ADDRESS 
UDES: Q :UNIT pe penaT  SONCPRESET FOR UNIT 0) 
RONT: 20 ~ ;RECORD COUNT 
CONT:  <-20 i caoclen oun 
W: ; PROCESSOR 


PSW: 177776 STATUS 

SWR: 177570 CONSOLE SWITCH REGISTER 
DISPLAY: 177570 ; CONSOLE Oey REGISTER 
TK 17756) Y READ STATUS 


53 77560 ;T STA 
TKB: 177562 iy READ BU 
TPS: 177564 ;TTY PUNCH STATUS 
TPB: 1 & ;TTY OUTPUT ied 
ITAMT: 10 ;NUMBER OF ITERATIONS 
TALL: 4 READY DELAY MULTIPLIER 


oe 


ee eS es 


/ 
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388 


404 


ACTI 


000000 
000000 


00 
000000 
390000 

00 


p00000 


sFLAGS AND COUNTERS#2eeeueeee 
0 
0 
0 
: O 
0 
0 
9 
0 
0 
0 
0 
0 
0 
0 
0 
0 
0 
0 
0 
0 
0 
0 
: 0 
0 


; TEST ENTRY TABLES#eeeeeeex 








DZTHFD. SRC ACTI1 H 
423 001000 
424 
425 
42 
4e? 001000 012737 
428 001006 012777 
429 001014 912706 
430 001020 013746 
431 001024 013746 
432 001030 012737 
433 001036 022777 
434 001044 001402. 
435 O01046 07 
436 061050 26 
437 001052 012737 
438 001060 012737 
439 001056 012637 
440 001072 012637 
441 001076 122737 

. 442 001104 001006 
443 0011068 012704 
444 OO01112 737 
445 001116 137 
446 OOllee 012777 
447 001130 700 
448 O01132 001116 
449 001134 012704 
450 001140 737 
451 901144 012704 
4Se 001150 737 
453 001154 
454 001160 013703 
455 001164 000303 
455 001166 042703 
457 001172 004737 
458 001176 005737 
4539 O01e0e 001404 
460 001204 012737 
461 OOlele O00434 
462 001214 012705 
463 001220 O1e701 
464 O0le2e4 Ole70e 
465 001230 012703 
466 001234 004737 
467 001240 000337 
468 001244 042737 
469 O0le5e 053737 
470 001260 013777 
471 O01e66 005600 
472 001270 Oee737 
473 001276 081002 
474 O01 004737 
475 001 32777 
476 O01 001013 
477 O01 S300 
478 001 00137e 


177570 


001630 


TMA,B-11 SUPPLEMENTAL INST TEST MACYLL 


000620 
177602 


000004 
177554 


000620 
000622 


000041 


177452 


000620 


000610 
000610 
177314 
000620 


177266 


27 (732) 


START: 
RSTART: 


SUSWR: 


4S: 


STO: 


1$: 


STl: 


;PRINT HEADER 
;REQUEST DRIVE NUMBER 


:SET 


PRESET TO oe SWITCHES 
PRIORITY 


:SET STACK POINTER 


; SAVE 


VECTORS 


;SET UP FOR TIMEOUT 
REFERENCE HARDWARE SWITCH REGISTER 


;ADJUST_ STA 


:POINT TO SOF TBRE SWITCH REG 
;POINT TO SOFT DISPLAY REG 

sRESTORE’ VECTORS 

;IM-11 MAG TAPE? 

IF NO , BR 


;LOADER TM-11 MAG TAPE 


:EN 
: POWER 


CLEAN 
SEE IF SKIP HEADER 
;IF SO: BR 


; PRESET UNIT 0 
;GET UNIT NUMBER 
POSITION 





; MASK 


BR 
STORE SWR 


UNIT NUMBER 
PRINT CURRENT VALUE 
;CHAIN MODE? 


;SET SAVE LOCATION 


T_NUM 
: POSITION UNE HGRER . 


;CLEAR OLD N 


LOAD NEW NUMBER 


SELECT UNIT 


O4-NOV-76 11:15 PAGE 13 
=1000 

[HEHEHE HEHEHE 
PROGRAM START AND HOUSEKEEPING 
SEPEPESESESEL TEST ST STE T ES Te 

MOV 177570, SUR 

MOV 40, aPSW 

MOV #500, SP 

MOV ad#6, -(S°) 

MOV ae, =(SP) 

MOV #1$,a84 

CMP ei  aSWR 

BEQ 2g 

BR 3$ 

CMP (SP)+ (SP + 

MOV #SWRE 

MOV eoisrRe, BISPLAY 

MOV (SP) +, 084 

MOV (SP)+; oe 

CMPB #4, awl 

BNE 4S : 

MOV #MSG22,R4 

JSR PC. TTOUT 

JMP TEND 

MOV #10000, anTC 

TST 

BNE ary ; 

MOV asc RY 

ISR TTOUT 

MOV méce RY 

ISR PC. TTOUT 

CLR UDES 

MOV UDES,R3 

SWAB sé 

BIC #177770,R3 

JSR PC, OCTP 

TST aside 

BEQ 1$ 

MOV #176, SWR 

BR STi 

MOV #TEMP3, RS 

MOV #1,R1 : 

MOV *Re : 

MOV #0°R3 : 

ISR PC’ TTR 

SWAB 46s TEMP3 

BIC #3400, UDES 

BIS TEMP3, UDES 

MOV UDES, INTC 

CLR 0 

CMP #SWREG, SWR 

BNE T 

ISR PC, CNTLU 

BIT #100, ants 

BNE 

DEC Bo” 

BNE ST 


;SEE IF SELECT REMOTE 
;IF SO: BR 


jDELAY FOR SELECT REMOTE 







pees Fes ee NOL 
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DZTMFD. SRC ACTL1 HOOKS 
27 5356 MOV #MSG21,R4 
dag obi es Bassa? 8 OO4E56 JSR PC, TTOUT sPRINT NOT AVAILABLE 
48100 1330 005737 oooo42 IST gui SEE, TE CHAIN MODE 
d8s paises rie 091630 Mi 7En ND bho FB. 
484 001342 032777 000020 177230 ST2: BIT #20, IMTS SEE IF 7 CHANNEL 
| ue pee Seta? 040000 ooo810 Bre #40000, UDES SET TO O eae BPI 7 CHAN 
| deb BBisee Beets BR 674 
001362 052737 O60000 O00610 ST3: &BIS #50000, UDES :SET TO 800 BPI 9 CHAN 
489 001370 o00240 ST4: NOP 
499 001372 Ol2e702 ooDb4e2 MOV #708, R2 :GET START OF TABLE 
491 001378 Ol2700 o00027 MOV #27. RO :SET SIZE OF TABLE 
4§2 901402 o0S022 STS: CLR (Red+ :CLEAR TABLE 
| 483 OO140% 005300 DEC RO 
484 9014u8 001375 BNE STs :D0 A 
| u35 001410 005037 000870 CLR PCNTR ‘OrEAR” PASS COUNTER 
| 





mS 
SRC 


i? 


opted 0 ss TEST MACY? 


| 497 
458 
| 233 Solaie Gosesr opDees 
| §01 Dole 017700 ifrize 
| $02 Coles O42700 177700 
| 803 01432 905700 
504 001434 001050 
505 O01436 Oler3s? 000726 OO0G60 
556 OO1444 O62737 000004 000660 
So OolNse 013737 DOeEO OboeEe 
508 001460 62737 000002 od0cée 
Fa ie Se re 
| 311 ati Basia goigs0 
| - Bbisoe oievee I7viso 
| §14 001510 oG011 
| §15 o015ie 004737 905410 
518 O01 Gae777 Ooe000 177074 
17 001524 901401 
| §16 001526 00000 
' §18 001530 004737 005410 
| §39 O01534 005737 000666 
31 oo1s4o go1741 
255 Doley2 017700 177052 
| §33 001546 O42700 177759 
«Be 
525 90) 171 rs 
526 001556 012737 O00001 OOUste 
52, D01se4 e270 000005 
Seg 001570 . OO5N17 
255 folers | poeiGo 
£3; 001576 006100 
pee MISS OI 000726 COOEED 
1606 000660 
E34 O0lbie O1 po0e6) gopee2 
535 001620 o00eG2 
iS Bis 
| 001630 1 006031 
| §38 001634 004737 OO4ESE 
e229 Oo1eHO 913703 70 
B10 Soleus 4 
54i OO1650 013703 OcO0042 
S42 001654 901405 
B43 DOLES 
544 O01660 00471 
545 00162 
B¥ OO1bE4 
547 OO166s 
Eup 016 
549 O0ie7e 036777 OO4000 176720 
261 Ooi702 600000 
662 001704 604737 OOSHI0 


27 (732) 


TSCD: 


STSCO: 


TEND: 


O4-NOV-7 


STFLG 
3SWR. RO 
8177700, RO 
RO 


STSCD 
bat LTADD 


;CLEAR SINGLE TEST FLAG 
GET SWITCH REGISTER 

MASK TEST SELECT 

;SEE IF SINGLE TEST SELECT 


:IF BR 

:GET TABLE START 

;SET ITERATION ADDRESS 
Fiat IF END OF CYCLE 
:G0_T0 "hsb ROUTINE 
CLEAR HEADER FLAG 
GET TES ADDRESS 

G0 TO TEST 


; SEE 4 HALT ON TEST 
IF NOT: BR 


;G0_ TEST FOR tG 
;SEE IF SINGLE TEST 
IF NOT: BR 


;GET TEST NUMBER 
see y ALL TESTS 


;SET SINGLE TEST FLAG 
SEE IF EXCEEDED Test NUMBER 


;POSITION NUMBER 
:GET START OF TABLE 
:SET POINTER 


;SET ITERATION ADDRESS 
G0 DO TEST 


;PRINT END OF PASS 
;PRINT PASS NUMBER 


;SEE IF HALT ON PASS 
IF NOT: BR 


;GO TEST FOR tG 





- ne ee ee ne eee ae ee eet aren ee = ne <a eee: 
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DZTAFD. SRE CTI] HOOKS 
5S3° 001710 905237 090670 INC PCNTR sBUMP PRSS COUNTER 
S O5:714 00137 od14:4 IMP TSCD RESTART 
bos 
SS7 : REFARKASAESFESLESLSKARESEFRASLASAAESAE 
559 ‘TEST 1: WRITE FROM ODD BYTE 
560 “THIS TEST WILL WRITE A SIX (6) BYTE RECORD 
561 FROM AN ODD BYTE STARTING ADDRESS. THE RECORD 
562 WILL BE READ BACK INTO AN EVEN STARTING ADDRESS 
563 -TO TEST FOR PROPER TRANSFER. 
eed : KLSHREZKAEAEKRALEARSLAKLELAERLKAFERAFL ES 
S66 001720 900240 LTl: NOP 
5&7? 001722 Ole73? OO6466 CODES4 MOV SLTIMSG,EMADDR ;SET HEADER 
568 001730 Ole702 006636 MOV aWDATA, Re :GET BUFFER START 
S69 001734 12728 000377 MOVB #377, (Re)+ : INSERT BACKGROUND DATA 
570 001740 CLR RO 
671 001742 110022 LTIB: MOVB RO,(R2)¢ . 
E72 001744 O0S200 INC RO sLOAD WRITE BUFFER (0,1,2,3,4,5) 
E73 001746 000008 CMP RO 
574 001752 O01 BNE Tip 
575 001754 003026 ISR C, RWND GO REWIND 
ey ire tier Ber ee RY bette own Heer Setegtnneg® OO 
578 001774 Ole737 1 090674 MOV &- Bytes >SET SIZE OF REC 
579 012737 006256 000656 MOV b17,E :SET WRITE CODE 
Seat) oe LTIC i3e rExEC en a 
S82 o0201 boy 003534 ISR PC, ERCHK GO CHECK FOR STATUS ERROR 
583 13939 177777 000676 MOV #-1 SCNT 
584 002030 004737 O03e12 ISR PC. BSP ;GO BACKSPACE ONE RECORD 
Ses O0e034 Ol 006740 MOV SRDATA, Re 
8 002040 O01 000010 MOV #10,R0 

002044 Ole7e2 177777 LT1D: MOV $-1) (R2)+ ;BACKGROUND READ BUFFER 

588 002050 DEC RO 
589 dorOSe 1374 BNE LTID D0 ALL 
590 1 po0002 620700 MOV $2, FUN ’SET READ FUNCTION CODE 
591 g0e0be b1e737 006740 000672 MOV #RDATA BAOR -SET READ POINTE 
Soe 1 177772 000674 MOV 8-6, BYTES >SET SIZE OF RECORD 
$3 00207 012737 d0be73 000656 MOV arse SET READ DE 
54 000104 737 JSR PC, EXEC ?GO DO READ 
695 002110 LT1E: NOP 
cap Botte Oeeay bee: ye CER RL ESET ERB Bate POINTER 
t9¢ Bnsi38 eae raat MOV #RDATA, Re iat VO PATA POINTER 
699 O02l26 012700 MOV #6, RU *SET SIZE OF RECORD 
£00 duels 3 JSR PC. DCHK :60 CHECK DATA 
601 1 7 31 JSR PC’ ITER GO SEE IF ITERATIONS 
6" OC2l4e 000137 001512 IMP TStde2 *RETURN TO SCHEDULAR 
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OTMFD. SRC ACTIL HOOK | 
893 jp RRRAHEREEEESEREREERRRERE 
B04 :TEST 2: READ INTO ODD BYTE 
£05 THIS TEST WILL WRITE A SIX (6) BYTE RECORD 
607 FROM AN EVEN BYTE S ARTING ADORESS. THE RECORD 
608 IWILL BE READ BACK INTO AN ODD STARTING ADDRESS 
| 609 'T0 TEST FOR PROPER TRANSFER. 
| ey eitrittiiiiiiittitititts 
Bi2 O02146 900240 LT2: NOP 
613 O0c1SO Ole737 O06S24 oDdESY MOV al TeHSG EMADDR ;SET HEADER POINTER 
614 O021568 Ole702 OO&636 MOV SiuDATA, Re :POINT TO START OF WRITE BUFFER 
He dein fie = 
| 815 Bosiee dosso0 
618 002170 Oe2700 coodd . 
| $18 O05174 01373 
| §20 002176 O04 003026 
| BG Gey Be poe 
| fee Raed ee 
624 O02224 004737 003304 
| 6635 OGe230 pose LT2c: 
| $85 O0e232 012737 O06256 o00ESS 
627 902240 004737 003534 
bce 002244 012737 77777 000676 
| 635 Besse Bisse DOLTHS 
631 902262 ee 000010 
32 002265 Ole7ve2 177777 LT2D: 
| &s Bases Boravs 
| §35 002276 012737 
' §36 002304 Ole? 37 006741 000672 
| §37 O0e312 012737 177772 000674 
538 002320 004737 003304 te 
640 orsase Nested 006273 000656 
641 002334 boa? 37 003534 
642 002340 012701 
643 002344 Ole702 74} 
£44 002250 012700 OO0006 
645 002354 004737 004022 
646 002360 004737 O043Ie 
647 002264 000137 001512 


o 
fs 
ow 
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OZTNFD. SRC ACTi1 HOOKS 





S49 ; REREREREAEALRSELALERAREE 
650 TEST 3: OPI TOOL 
Fed THIS TEST WILL ERAGE BPPROXINATELY | THIRTYFIVE (35) 
&53 FEET OF TAPE By i WRITING ete obo Hines. tM 
654 AND REPEATI Lu E 
fp set THER S ‘Bo Ne UNIT Pepe ore 
£28 +O EACHINE THE F erin “ual 
4 5 SHAELAELKALELLAAERAEAEERE 
660 O02 LT3: NOP 
661 wae Bresso 006557 000654 MOV SLT3MSG,EMADDR ;SET TEST HEADER 
bbe 002400 012700 000151 HOV 151 1,R0 iSeT AllUMBER OF R OF WRITE IRG/BACKSPACE 
a Bosaig Br 3989 Bpaoi8 000700 LT3A: MOV #14, FUN SET BRITE TRO FUNCTION CODE 
S65 O02416 Ole737 006636 000672 MOV #WDATA, BADR :SET 
BEB 24 O01 177760 000674 MOV 8-20, BYTES >SET SIZE OF RECORD 
33 32 a3 JSR PC, EXEC 3G0_ EXECUTE COMMAND 
668 0020436 012737 006256 OO06S6 LT38: MOV 8NSG17,ERRAO § ;SET ERROR CODE 
669 000444 004 003534 JSR PC, ERCHK G0 CHECK FOR STATUS ERROR 
670 O024S0 nee 177777 OD0676 MOV 8-1 SCNT 
671 OOC4SE 004737 003212 JSR PC, BKSP ;G0 BACKSPACE ONE RECORD 
ea Be tte Pitt oe 
674 Bosage poasah - LT3IT: NOP ; 
675 002470 004737 003026 JSR GO REWIND 
676 O0C474 012737 O00S00 000636 MOV #500, STALL :SET OPI STALL 
677 02502 012737 006740 000672 — MOV SET START OF READ BUFFER 
678 002510 Ole737 177760 000674 MOV $-20, BYTES *SET SIZE OF RECORD 
679 002516 Ole737 Oo0000e2 MOV >SET READ FUNCTION CODE 
680 002524 012737 006307 O006S6 MOV 8MSG19.ERRAD  ;SET ERROR CODE 
681 002532 004737 003304 JSR VEXEC GO EXECUTE COMMAND 
682 002536 O00240 LT3¢: NOP 
683 002540 012737 OO0004 000636 MOV #4, STALL sRESET NORMAL ST 
6E4 Soe546 032777 000400 176024 BIT #400, NTS >SEE IF BTE IS SET 
685 001007 BNE LT3xX IF SO: BR 
686 002556 O01 900001 ono664 MOV #1, SPELG *SET NO 8A PRINT FLAG 
B57 Doe5e4 003612 JSR ERP GO PRINT ERROR 
CLR LG sRESE SET FLAG 
683 002574 16737 pooode 000634 LT3xX: MOV a2, TTANT ie! To TWO (2) ITER ITERATIONS 
it te! ie 
fai DOSE NE Brava 16 000634 MOV #0, ITAMT eal TERA Tons. 
bac 002614 0600137 O01Si2 TSche * RETURN TO SCHEDULAR 













NTAL INST TEST MACY11 271732) O4-NOV-76 11:15 PAGE 19 
TOA AE 1 RUPPLENENTAL RL iNet E 6 S El 


s RHKERELKELAELELE RAE LLLEE 


bee ; TEST 4: OPI TOO SHORT 
£38 ITHIS TEST WILL ERASE APPROXIMATELY SIXTEEN (16) FEET 
638 OF TAPE BY WRITING ITH Rin BACK ac Ge 
$33 :S0(10) TIMES. PAPE WI ay No Bvé gLeNEE 
701 sR. THE FIRST RECORD ON TAPE SHOULD BE 
ni I TIMES OUT. 
$4 erertitirtititirtt titi ty 
705 O02620 900240 LT4: NOP 
08 Soebee 012737 OO06606 of06S4 MOV 8LTYMSG,EMADDR ;SET HEADER 

004737 003026 JSR PC, RWND G0 REWIND 
708 002634 Ol 000062 MOV #62,R0 SET R OF WRITE IRG/BACKSPACES 
708 002640 O1 000014 000700 LTYA: MOV #14°FUN :SET WRITE IRG FUNCTION CODE 
710 OO02646 3 006636 000872 MOV WOATA . $SET START OF WRITE BUFFER 
711 002654 Ole737 177760 74 #-20, BYTES :SET SIZE OF RECORD 
712 Ole737 O06256 O006S6 MOV G17 EI CODE 
713 002870 004737 003304 JSR PC, EXE :60 GO EXECUTE COMMAND 
714 002674 O04 003534 LT4B: JSR PC’ ERS 3 €K FOR STATUS ERROR 
715 002700 012737 177777 O00676 MOV #-1 SCNT 
716 002706 004737 003212 JSR PC, BKSP GO BACKSPACE ONE RECORD 
717 OOe7le DEC RO *SEE IF DONE ALL SEQUENCES 
718 002714 001351 BNE LTYA :IF 
719 002716 LTYIT: NOP 
720 002720 004737 003026 JSR PC s REWIND 
721 002724 012737 O00S00 #500, STALL *SET OPI STALL 
722 02732 012737 006740 000672 MOV #ROATA, BADR :SET START OF READ BUFFER 
723 O02740 Ole737 177760 000574 MOV #-20, BYTES >SET SIZE OF RE 
724 00274 012737 hagape MOV #2, FUN >SET READ FUNCTION CODE 
725 0020754 Ole737 006332 OODES6 MOV #"SG20,ERRAD  ;SET ERROR CODE 
72 O02762e 004737 003304 JSR PC, EXEC *GO EXECUTE COMMAND 
22 b0e7be 004737 003534 LTHC: SR PC; ERCHK GO CHECK FOR STATUS ERRORS 
729 0020774 Ol2737 o00004 MOV #4, STALL sRESET NORMAL STALL 
730 003002 012737 oO00002 000634 MOV #2; ITANT *SET TO TWO (2) ITERATIONS 
731 003010 004737 004312 JSR ITE GO SEE IF ITERATIONS 
732 003014 12737 000010 000634 MOV #16 TTRNT *RESET ITERATION 
723 002022 137 o0iSie p *RETURN TO SCHEDULAR 





























= 
THFD.SRC CT11 HOOKS 


72 sREWIND SUBROUTINE seexeeeeee 


~ 
2 


mm -11 SUPPLEMENTAL INST _TEST MACYLI 27(732) O4-NOV=76 11:15 PAGE 20 
g3 aes Wee 10 175544 — aw UDES, MTC ECT UNIT 
¢ ; 
bac POsRe laces pppRiO teed Wey UES, attt peeEE CT WW or 
739 OO3044 001056 BNE RWNOXX ‘TF SO: BR 
740 003046 052777 O00017 175526 BIS #17, INTC :START REWIND 
741 003054 105777 175522 18: TSTgB. 3s ame 
742 003050 100375 PL 1$ sAWAIT CUR 
743 003062 O03¢777 000001 175510 RWNDI: BIT #1, MTS ‘AWAIT TUR 
744 003070 001774 BEQ 
745 932777 o00040 175500 BIT #40, aMTS sSEE IF BOT SET 
745 ait 051040 BNE IF SO: BR 
747 003102 032777 O20000 175510 BIT #20000, aSWR :SEE IF PRINT ERROR 
748 903119 901030 BNE X :IF NOT: BR 
749 O03lle Ol o00654 MOV EMADDR, R4 
750 003116 004737 OO46Ss JSR PC, TTOUT ;PRINT HEADER 
oes poise ted SOaEeE Wen as erent PRINT REWIND ERROR 
753 Bosse yee 006102 MOV #MSGS,R4 F 
754 003138 004 JSR PC, TTOUT sPRINT MTS TAG 
755 142 017703 175432 MOV ants. R3 
756 003146 004737 OO0SO44 JSR PC, OCTPE PRINT MTS 
757 003152 012704 006111 MOV #MSG5, RY 
758 003155 Oo737 004656 ISR PC. TTOUT sPRINT MTC TAG 
| 759 003162 017703 175414 MOV atc, R3 
| ep poetee paws, Weuss nex: Fu iE TE HALT ON ERROR 
0: : ; 
ses Dosize {00004 SPL RRNDXX SPE Nor: BR 
| 383 Dose00 HALT ; 
| 764 O03202 004737 o0s410 RWNOXX: JSR PC, CKSWR GO TEST FOR ¢G 
| 765 003206 900240 NOP 
7& Oo3e10 00207 RTS PC : ; RETURN 
ree sBACKSPACE SUBROUTINE #e#eeeeeeee 
| 770 903212 00249 BKSP: NOP 
| 2271 003214 013777 000610 175360 MOV UDES, INTC ;SELECT UNIT 
772 013777 000676 175354 MOV SCNT. IMTBC SET NUMBER OF RECORDS TO SPACE 
| 773 003230 052777 000013 175344 BIS #13, aMTC :START SPACE REVERSE 
774 003236 105777 175340 1S: TSTB. Os aT 
775 003242 100375 BPL 1$ AWAIT CUR 
| 77% 003044 032777 000001 175326 BKSP1: BIT #1, aMTS 
| 277 00325¢ 01774 BEQ BKSP AWAIT TUR 
| 778 00305 03559 po0001 000664 MOV #1, SPFLG “SET SPACE FLAG 
| 779 003262 012737 006140 O006S6 MOV #SG9, ERRAD 
| 780 003270 004737 003534 JSR PC. ERCHK GO CHECK FOR ERROR 
| 781 003074 005037 000664 CLR — SPFLG *CLEAR SPACE FLAG 
| 782 003300 000240 NOP 
| 783 000207 RTS PC ; RETURN 
i 
| 
; 
| 
| 
i 
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BESS SR Nes 
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peineD-ske 


003304 
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CT11 HOOKS 


EXEC: 


175264 EXECO: 


175204 
175202 
17517e 


OO0E4E 


175134 


EXEC1: 


EXECe: 


EXEC3: 


EXEC4: 
EXECX: 


EXECXX: 





O4-NOV-76 11:15 PAGE 2: 


sCOMMAND EXECUTE SUBROUTINE s#*4442%%% 


at 


eesesaam 


R 
#200, aNTC 
EXECe 


UDES, MTC 
BADR: IMTBA 
BYTES, IMTBC 
aol Ri 

1, ahTC 
aPSW 
STALL, TEMP! 
Ri 
RI 
EXEC3 
TEMP 
EXECS 
#20000, 
EXECK 
EXECY 
Sait 
PC anise) RS 
aSHR 
EXECXX 
PC, CKSWR 
PC 


vSEE IF CUR 


SEE IF TIMED OUT 

:IF NOT: BR 

see IF DONE HEADER 
F SO: BR 


SELSE PRINT HEADER 


7 
, 
° 
, 


;PRINT_NOT READY ERROR 
SEE IF HALT ON ERROR 


;GO TEST FOR tG 


;SELECT UNIT 
;SET BUS MEMORY ADDRESS 
;SET BYTE COUNT 


;GET FUNCTION 
3SET IN GO BIT AND INTERRUPT ENABLE 
;LOAD COMMAND+GO+IE 


;ALLOW INTERRUPTS 
;SET READY STALL 


;AWAIT INTERRUPT 


;SEE IF PRINT ERROR 
IF NOT: BR 

SEE IF DONE HEADER 
;1F SO: BR 

;PRINT HEADER 


;PRINT_NO INTERRUPT MESSAGE 
i, ae et ON ERROR 


:GO TEST FOR tG 
sRETURN TO CALLER 


| 


ee 


ZTMFD. SRC 


FREER B sa tool saa CE ORTON SECURE Se aan Loma oes Ten Bes 


003$34 
bases 
003546 


a 


: 


Ges Sse ian cee RS eoeene ere 


: 


88 
oo 
ee oe 
OnVo 


i 


ACTL1 HOOKS 


175042 


003612 
175032 


003612 
74 


174776 


Lan ose SUPPLEMENTAL INST TEST MACY11 27(732) 


ERCHK: 
ERCHK1: 


ERCHK2: 


ERCHK3: 


ERPT: 


ERPT!: 


ERPTX: 


ERPTXX: 


O4-NOV-76 11:15 PAGE 22 


STATUS ERROR CHECK SUBROUTINE #e#eateate 


TST 
P 


itd 


.SEE IF ANY ERROR BITS 

TF NOT; BR 

‘ELSE PRINT ERROR 

‘SEE IF BYTE COUNT IS ZERO 
ET SP obRENT ERROR 

:SET EXPT BUS ADDRESS 

SSE TF SPACE OPERATION 
{IF NOT: BR 


;SEE IF EXPT=RCVD 
sIF NOT: BR 

sELSE EXIT 

;SEE IF SAD PRINT 


ISEE IF DONE HEADER 
sIF SO: BR 

SELSE PRINT HEADER 
iSET FLAG 

SPRINT ERROR CODE 
SPRINT NTS TAG 

SPRINT MTS 

SPRINT MTC TAG 

SPRINT MTC 

SPRINT BYTE COUNT TAG 
;PRINT BYTE Coun 
ISEE IF PRINT BA 

;IF NOT: BR 

SPRINT BUS ADDRESS TAG 
SPRINT CURRENT ADDRESS 


SEE TE HALT ON ERROR 
sIF NOT: BR 


;GO0 TEST FOR tG 
;GO SEE IF SCOPE ON ERROR 


TMA, B-11 SUPPLE 


DZTNFOD. SRC 


887 
888 


891 
633 


ae 


sccnmaniseeens 


Sais erin clout ks Son ona Seats Gone 
WSTOOEESOMORRS SS 


PRESS RENNES 


ebeieeicbiicee ices 


misty 
ges-82 
ag 


Ae do 


004214 


MENTAL INS 


ACTL1 HOOKS 


SW 


gee 
aes 


[om = ] 
—— 


= 


gegegeR 
seas 


saa 


— 


000704 


000704 


000706 
174530 


000710 


. TEST MACYL1 27 (732) 
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;DATA CHECK SUBROUTINE ##xexeeR ex 


DCHK: NOP 
CLR CRCNT sCLEAR COUNTER 
DCHKO: CMP8 (RI), (Re) SEE IF EXPT DATA=RCVD DATA 
Ne rale4 ia NOT: BR 
DCHK1: IN CN BUMP CHARACTER COUNTER 
CMPB OO «(R1)4, (R2)+ 
DEC RO i SEE IF DONE 
BNE DCHKO ‘IF NOT: BR 
IMP DCHKX ELSE GO TO EXIT ROUTINE 
DCHKE: NOP 
MOV #1, DERFL SET ERROR FLAG 
BIT #20000, ISWR :SEE IF PRINT ERROR 
BNE DCHKX IF NOT: BR 
TST HORE i SEE IF DONE HEADER 
BNE DCHKE1 :IF SO: 
MOV EMADDR, R4 
JSR PC, TTOUT ;PRINT HEADER 
MOV #1 HORFL :SET HEADER FLAG 
DCHKE1: MOV #"SGl2, 
TST PFLG ;SEE IF PRINTED DATA ERROR TAG 
BNE DCHKE2 IF SO: BR 
INC PFLG “ 
ISR PC. TTOUT sELSE PRINT DATA ERROR TAG 
DCHKE2: MOV #45613, R4 
. JSR PC. TTOUT PRINT CHAR NUMBER TAG 
MOV CRENT,R3 
JSR PC. OC ;PRINT CHAR NUMBER 
MOV #MSG14, 24 
JSR PC. TTOUT ;PRINT GOOD TAG 
MOVB - (RIL).R 
JSR PC ;PRINT GOOD CHARACTER 
MOV #MSG15,R4 
JSR PC. TTOUT ;PRINT BAD TAG 
MOVB = (R2) 
JSR Pc, 0d ;PRINT BAD CHARACTER 
IMP DCHK1 sCONTINUE FOR ALL BYTES 
DCHKX: NOP 
TST DERFL ;SEE IF ANY ERROR 
BEQ DCHKXX tTF NOT: 
TST aSWR :SEE IF HALT ON ERROR 
BPL DCHKXX :IF NOT: BR 
DCHKXX: SR PC, CKSWR G0 TEST FOR tG 
CLR PFLG s CLEAR PRINT FLAG 
CLR DERFL *CLEAR DATA ERROR FLAG 
RTS PC TURN 



























BoTHED. SRC ACTII H 
aa sSCOPE LOOP ON ERROR SUBROUTINE **#x4x#%e 


000240 SCOPE: NOP 
040000 174326 #40000, JSWR fia e bg0P ON ERROR 
SCOPE] 
O04e74 000207 RTS PC sELSE EXIT 
004276 900240 SCOPE1: NOP 
300 005726 TST (SP)+ ;RESET STACK 


4 NOP 
Br77G3 174350 MOV —- ALTADD,R3 
004310 900113 INP (RQ) ;LOOP ON ERROR 


TEST ITERATION SUBROUTINE **#2e4e#%% 
CO4312 o000240 ITER: NOP 


004314 004737 005410 JSR PC, CKSWR 
032777 010000 174272 Bit #10000, aSWR 79EE IF ETERATIONS 


a 
a98 
see 
ER 


001403 BE 
riteea 005037 000702 ITERO: CLR TENT ; CLEAR ITERATION COUNTER 
sae peesas 000670 ITERI Rae EevTR E IF FIRST Pass 
haters See ”  BEQ ITERO iE bt BA 
Seas eae ae 000634 ANP TENT ITAMT sBUNP F DONE ALL 
004356 001764 BE TENA : HIF s0:_ 
004360 005726 TST (SP)+ RESET 
004362 017700 174274 MOV DITRLP, RO :SET ITERATION POINTER 
004366 000110 JMP (RO) -GO ITERATE 

;MAG TAPE INTERRUPT HANDLERS##xx4xx## 
004370 900240 MTINT: NOP 
004372 O22626 CMP (SP + (SP)+ RESET STACK POINTER 
004374 042777 O00100 174200 BIC 0, MTC :CLEAR INTERRUPT ENABLE 
oo44o02 o0G240 NOP 
004404 900240 NOP 
004406 000207 RTS PC ; RETURN 


| “11 SUPPLEMENTAL INST TEST MACYI1 27(732) OH-NOV-76 11:15 PAGE 24 
| 
| 
} 
| 
| sTTY INTERRUPT HANDLER########xx 


PER ER RR SRE olde dal leaks Lia SBP he 


004410 000240 TTINT: NOP 
OO44ie 00240 NOP 
004414 40 NOP 
004416 000002 RTI 


ww 
oo 
o- 


o> eres © anew en em eee a eee aees 


A 
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982 5 RRRERRLFLAERARALEL ELE RERA LE LEREL ELE RELELALEL ALE FLERE FEES 
385 ;TTY ENTRY SUBROUTINE: 
98S THIS SUBROUTINE Is Reb Tee BY THE TEST CONDITION 
age SENTRY ROU ROUTINE Qe HE RESPONSE ENTERED 
9 if M HT He Nee PONSE “Ler ge ai N aL 
age 3 ME San AND AUST, rt WITHIN THE veep IN sorta 
330 ; : THE CALLING 
ag :IF AN Y TS Tee L_OR OUTSIDE THE LIMITS 
9 7A QUES NOR MARK IS TYPED (?) AND THE RESPONSE 
393 :MAY BE REENT 
gsy sEN NTRIES MAY NOT EXCEED SIX (&) CHARACTERS AND 
9s MAY BE TERMI NATED AT LESS THAN SIZ BY TYPING A 
996 CARRIAGE RETU 
pach ERE HEE ra HEHE HEEHEHEEEREHHHEHHEEEEHEEEHEEEEEEEEES 
999 004420 005037 OO0DE4S TTR: CLR TEMP ;CLEAR FIRST CHARACTER FLAG 
1000 0994424 905000 ¢LR RO 
1001 oOO4426 004737 OD4E04 TTRO: JSR PC, TTIN GO READ CHARACTER 
1002 o04432 122737 000215 cOoe44 cps ~=Ss«w 1S, TIB ; SEE IF CR 
1003 OO4440 001005 BNE TTRI IF NOT: BR 
1004 oo4442 005737 OO00646 . TST TEMP ; SEE IF FIRST CHARACTER 
1005 OO4446 O01446 BEQ TTRS 
| 1005 904450 000137 oD4S4e IMP TTR2 ELSE 60 L9aD VALUE 
| 1907 O04454 122737 000260 OOOS44Y TTRI: CMPB  #260,TIB SEE IF CHAR IS LESS THAN O 
| 1008 o04%62 101402 BLOS  TTRIA ;1F NOT: BR 
' 1009 OO4464 000137 oD4sES IMP TINER “ELSE GO TO ERROR 
| 1010 904470 122737 000270 OODE44 TTRIA: CMPB  #270,TIB ;SEE IF CHAR IS GREATER THAN 7 
1011 904476 101002 BHI TTRIB IF N R 
1012 O94S00 000137 oD4seE IMP TINER ELSE a8 TO ERR 
1013 604504 005237 OOD646 TTRIB: INC TEMP] SET FIRST CHEEOCTER FLAG 
| 3014 004510 o00241 CLe 
1015 O04512 o06100 RO 
1016 OO4514 o00241 CLC 
1017 OO4516 008100 ROL RO ;SHIFT 3 LEFT 
1018 904520 000241 CLC 
1019 O04522 006100 ROL RO 
| 1020 004524 042737 177770 OODE4Y4 BIC #177770, TIB ;STRIP ASCII 
1921 p04532 05379 000644 BIS T1B, RO ef bore 
| 1055 Bouess Borsae BNE -* TTRO 
| 1024 oo4s42 TTR2: CMP RO, Re iSEE IF EXCEEDED MAXIMUM LIMIT 
| 2 boweH 1014 BLOS TTR i ok 
Fe 137 OO4S66 IMP TINER ter SE GO TO ERROR 
| 027 oO45S2 020300 TTR3: CMP R3,RO . SEE IF BELOW MINIMUM LIMIT 
| 1028 OO4554 101402 BLOS  TTRY IF NOT: BR 
| $029 O04556 000137 co4SseS INP TINER ELSE GO TO ERROR 
| 3030 o04562 010015 TTRY: MOV RO, (RS) LOAD VALUE 
| 193) 4 eed TTRS: RTS PC sEXIT 








TEST MACYLL 27(732) O4-NOV-76 11:15 PAGE 26 
ACT11 HOOKS 


TTY ENTRY ERROR SUBROUTINE #*#4444%4% 


012704 oo6es4 TINER: MOV #MSG16,R4 
604737 o04656 ISR PC. TTOUT : PRINT? 

162716 O80020 SUB #20, (SP) RESET SP TO START OF VALUE ROUTINE 
000207 RTS PC *REDO VALUE ENTRY 


;TTY READ SUBROUTINE skeexexene 





005077 174014 TTIN: CLR aTkS 
005077 174012 CLR = aTKB 
005037 000644 CLR 1B 
005277 174000 INC TKS 
105777 173774 TTINI: TSTB aTKS 
004630 100375 BPL ss‘ TTINI 
004632 017737 173770 OO0644 MOV.  aTkB,TIB 
105777 173764 TTIN2: TSTB aTPS 
100375 BPL - ‘TTINE 
113777 O00644 173756 - MOVB  TIB,aTPB 
000207 RTS = PC 
10es sTTY OUTPUT SUBROUTINE X##exxex4% 
| 1056 OO¥ES6 112437 900542 TTOUT: MOVB (R4)+,TOB 
| 1057 OO4662 122737 OO00043 ocodb42 CMPB ss &43, TOB 
| 1058 004670 O014Se2 BEQ «TEX 
| 1059 004672 12737 OOD04S oOo0b4e CNPB #45, TOB 
| ie1 Bosvoe Jeez? 0004 coDeMe ae 
| 1062 00471 fit BEQ TBELL 
1063 00471 737 oos002 JSR PC, TOG 
1064 004716 000757 BR TTOUT 
1065 004720 112737 000015 OO0b42 TCRLF: MOVB #15, TOB 
| 1066 004726 004737 o0S002 JSR —- PC, f0G 
| 1067 004732 012703 000004 MOV 
| 1068 004736 005037 000642 TCRLFA: CLR = TOB 
| 1069 o0474e 004737 005002 JSR PC, TOG 
| 1070 004746 005303 DEC 
' 1071 004750 O01 BNE ;D0 FILLERS 
| 1072 004752 112737 oO0Ule oo0e42 MOVB 
1073 004760 004737 005002 JSR 
1074 004764 105737 TSTB 
| 1075 770 100401 I 
| 1098 Bosrea Ooees? oozes 's: ER 
| 1078 000406 
| 1079 005002 105777 - 173622 TOG:  TSTB 
| Det eet 113979 000642 173614 ROVE 
‘10g ie baer TEX: RTS 
| 1083 012703 oo0002 TBELL: MOV 
1088 Bosde4 1673? 000007 OODbH2 TBELA: NOV 
| 10ee O0sese Gosaa3 "OP Dec 
| 1087 005040 001371 BNE 
_ 1088 605042 000705 fa 
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1089 
1090 ;OCTAL OUTPUT SUBROUTINE x###4xx4%% 


vac TPE: 
ibe ponds Oh iF 14 000001 O0S300 OCTPE pov $i OFL 


10384 005054 005037 005300 OCTP: CLR FL Pagid FOR LEADING 2ER 
ibee ane 1007 BNE Raid iF Noro Rae 
1097 005064 605737 005300 Nae TST OFL ;SEE_IF Sent ALL 0 
1098 bos07¢ 1004 * «BNE OCTPO 
1099 O7e ,004737 005260 ISR PC, OCTPGL ELSE PRINT ZERO 

.. 1100 005076 *000137 oc0S222 IMP octP3 SPACE AND EXIT 
1101 905102 032704 100000 OCTPO: BIT #100000, R4 ; SEE IF MSD = 1 
1102° 005106 oO1406s BEQ OCTP1 IF NOT: BR 
1193 005110 012704 op0001 MOV #1,R4 
1104 005114 004737 005236 JSR PC’ OCTPG :PRINT 1 
1105 gp5120 000137 005132 octPe 
1105 005124 905004 OCTP1: CLR RY 
1107 005126 004737 o0S236 ISR PC, OCTPG PRINT O 
1108 005132 010304 OCTP2: MOV R3,R4 
1108 005134 906004 OR 
1110 005136 OO6004 ROR RY 
1111 005140 06004 ROR RY sPOSITION DIGIT 
lil2 o05142 006004 ROR RY 

| 213 905144 000304 SwAaB.OttséRY 
1114 005146 004737 005236 JSR PC, OCTPG sPRINT DIGIT 2 

| 4115 005152 010304 MOV R3,R4 

| J316 005154 06004 ROR 

| 4117 905156 304 SWAB RY 

' 4118 605160 737 005236 JSR PC; OCTPG PRINT DIGIT 3 
1119 005164 010304 MOV R3,R4 
1120 005166 006104 
llei 005170 006104 4 
ll22 005172 000304 SWAB =sRY ; 

+ 123 005174 737 005236 . JSR PC, OCTPG :PRINT DIGIT 4 

| HE Beas Be oe oe 
112g 005204 ROR 

| 1138 10 O04 005236 ACR Be OCTPG 

| 1129 Bpests Ona MOV R3,R4 

| 1130 905216 737 005236 JSR PC; OCTPG sPRINT DIGIT S 

' 4131 o05e22 12737 po0e49 QO0b42 OCTP3: MOV a TOB 

ihe 005230 ? ooe JSR pC, TOG :PRINT SPACE 
1133 005234 RTS PC EXIT 





r ee re ee re ee 


' AA, 
CT31 HOO 


SUPPLEMENTAL INST TEST MACYI1 é7( 732) 
* Re KS 


OCTPG: 


~~ < 0-9-9 © 
uJ) 
~s 


WEE SEE EEE et 


c OR 


OFL: 


ary 
~ 


DOUT: 


oO 
BS 


DOUTI: 
000642 
173270 
173260 


aaa 


A 


DCUTe: 
DOUT3: 


ge 
a 


ee ee ee ee nee rene ee nee ene ES ee 


DOUTD: 


000620 CKSWR: 


000644 
0On644 
COUE44 


CNTLU: 


si tli cplpeipalipeahpecaeaplipaieauiiehiGaiipaclaattapuiipedallpelpetiiaibilipaiideemplelh ih tibiae inca ada. 
SRS RASA SS ee ne Sree 
SR VRR ISH LB SarIata ZINA SSSSERESH SBIR LON 


OCTPGO: 
OCTPGI: 


Ce ee ae 


OY-NOV=76 11:15 PAGE 298 


sOCTAL PRINT SUBROUTINE sasseeesee 
Ic #177770,R4 


8 

SNE OCTPGO 
TST OFL 

SNE OCTPGO 
RTS FC 

INC FL 

BIS #260,R4 
MOV 4,708 
JSR PC, TOG 
MOV RY 
RTS 

0 sFIRST CHAR FLAG 


;DATA CHARACTER OUTPUT SUBROUTINEs#eeeseeee 


TOB 
MOV #10,R4 :SET NUMGSER TO PRINT 
MOVE = RS, toB 

TSTB 3s @TPS 

BPL DOUTL 

BITB #20u, TOB 

BEQ DOUTe 

MOV 8061. aTPB 

SR DoUT3 

MOV 8060, aTPB 

ROL T08 

DEC RY 

BNE DOUT! 

RTS PC 

MOV TENPS, R3 

JSR PC, DOUT 

MOV TEMPS, R3 

JSR PC, DOUT 

RTS PC 


;SUBROUTINE TO CHANGE CONTENTS OF SOFTWARE SWITCH REGISTER 
MP 5 ; SOF TWARE 


é SWREG, SWR ; SOF SWITCH REG PRESENT 
BNE OUT NO, GET 
ST8 4230s aTKS YES WAIT FOR 
BPL OUT *READY, GET CHARACTER 
MOV aTKB, TIB :AND STRIP 
BIC #177600, TIB ; THE GARBA 
CMP ? 718 SIS IT A <t@ 
BNE + 
MOV SCNTG, RY 
JSR PC, TTOUT 
MOV sSASUR, RY 
JSR PC, TTOUT 
MOV ISR, R3 
JSR PC, OCTPE 
MOV #SANEW, RY 











ewe ee 8 eee ee 


C03 
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DZTHFD. SRC TL] HOOKS 
ll 005505 737 o04656 JSR PC, TTOUT 
tigi =e] 004737 BoOree seh rape :G0_READ_A LINE 
1133 ppeess 000207 OuT: RTS , *RETURN TO M HAIN BODY OF PROGRAM 
| 1195 oossee 000722 SREAD: CLR TEMPST 
| 1198 005530 912737 000007 o00720 MOV 87, COUNT 
1187 005536 737 18: JSR PO; TTIN +60 READ A CHARACTER 
1198 005542 042737 177600 ooD644 BIC 0127800, TIB STRIP 0 F GARBAGE 
1:99 005550 i22737 oode44 CMPB 4Os«w2S,, TIB’ :1S IT a ? 
1200 005556 001002 BNE :BRANCH IF NOT 
1201 005560 905726 3S: TST (SP)+ ;POP_ THE 
1202 bpeSbe 090732 BR CNTLU START 0 
1203 4 1 p00015 oOno0e44 2s: CMPB S,TI8 IS IT A <CR>? 
1204 005572 001013 BNE :BRANCH IF NOT 
1205 005574 Ol 000724 MOV 8200, ROSW 
1206 O0S602 004737 004720 JSR PC, TORLF ECHO IT. WITH <LF> 
| 120? 005606 022737 000720 CMP 87, COUNT shas I! FIRST CHARACTER 
| 2208 005614 001037 BNE 7g HANGE SWR IF NOT FIRST ONE 
| 1609 005616 ese 8S: TST (SP)¢ EOP THE ST ACK 
| 1210 poste 000740 BR OUT GET OUT 
| lel 122737 00060 OO0E44 4S: CMPB =s-s«#60,, TIB 
| 4g1g 00563) 003004 SGT c$ 
1213 005632 122737 000067 OD0644 chee #67, TIE 
} 
151 DOSeNe OIS7O4 ODGHbI cs: ROY RSQUEST.R4 
| 1216 goede 004737 OO4656 JSR PC, TTOut 
1217 go074e - BR ect ;START OVER IF NOT LEGAL CHARACTER 
/  ye18 BpeeeD 006337 nae ASL TEMPS ; 
| 1220 005664 006337 000722 ASL TEMPST 
| eel 05670 14 OO0066 ocOde44 BICB #60, 118 :GET NITTY-GRITTY 
| ye2e bo5e7% 000644 000722 BIS8  TIB’TEMPST 
lee3 000720 DEC COUNT sONLY WANT & DIGITS 
1224 005710 O01 BEQ c$ 
1225 005712 9000711 BR 1$ 
1226 005714 Seead 000722 172676 7%: MOV TEMPST, ISWR sCHANGE SWITCH REGISTER CONTENTS 
lez? 005722 000735 BR 14 









em ee ee ae ee 
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DZTRFD-SRE 


= /70N: 87 
a3 MSG14: .ASC 77G: &/ 
021 fiates ASC 448: %/ 


: /?¢/ 
pe ttes ra? MSGi7: .ASCII /“WRITE ERROR#/ 
lige 051117 


iss 2101 MSG18: .ASCII /*READ ERROR#/ 


ao 


25 
: 
éR 
: 

: 


ae O47440 MSG19: .ASCII /X“NO OPI IN 3S FEET#/ 
3040 


ohisabzai) 


AcT! di 
is sMESSAGE TABLE seaeeeenee 
13? 005724 O2e445 O46S24 026101 MSGI: ASCII = /%%TMA,B-11 :TULO,N,W SUPPLEMENTAL INST TEST ‘OZ2TMF-0) av 
1232 peer ae S02 030461 035040 
1233 ‘ 
le 005746 14 1 
1235 005754 946120 047105 
le 114 por aad 
is le3 1S05 
1238 1 20S0 0Sel3e2 
iaa eg Cees puseie A ; MSGe ASCII /XUNIT NUMBER: &/ 
tei i: wu 051105 
13 Soest pegs 71 MSG3 ASCII /%x%!END OF PASS: #7 
t ponies Basil? Ss00%0 
ise poeres ait Gsioal OS 3505 MSG4 ASCII /X!!REWIND ERROR: NO FOTa 
1 ll 104 11 
1248 O06066 O3Sie2 47040 
1249 006074 020117 OY 021524 
1250 oe aeT O464SS 051524 20072 NSscs ASCII /4uMTS: #/ 
1251 00611 04 
1 006111. 052115 035103 M™SGE ASCII /“MTC: #7 
1 peels 021 
1254 006! O46445 O41124 035103 MSG7: .ASCII /“MTBC: a 
1255 006126 021440 
1256 006130 rasan O41S24 035101 MSGS: .ASCII /XMTCA: #7 
1257 Betas 021 
1258 006] C2e044S O41041 O41S0i MSGS: .ASCII /%!!BACKSPACE ERRORs/ 
1259 006146 051513 
1260 006154 O4e44O0 OSlle2 OS111 
ich 006162 G43 
1 006163 OYS O20441 O47516 MSG1O: .ASCII /%!!NOT READYs/ 
i: peice ats O4¥2S2e 042101 
1265 Goeens 1 117 MSGl1: .ASCII /%!!NO INTERRUPT#/ 
15ee serie Busses e11ze 
1267 4 paqited 1 
1268 101 O20101 MSGle: .ASCII /XDATA ERROR#/ 
ess 
006255 
006254 
ee 
ANG 200 
aa 
i 4 2 
006332 


/Z0PI WITHIN 16 FEET#/ 


i 
: 
: 
i 
z 





——_— 
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DZTHFD. SRC ACTI1 HOOKS 

1285 OO6340 OS2111 O44510 920116 

1286 O0bsMe 033061 O43040 O42505 

1287 006354 021524 

1288 WC 04704] OS2117 MSG2i: .ASCII / !!NOT AVAILABLEs/ 

1383 Doesee OMLIOL Geeg Ove LtL 

1291. oy ON7115 MSG22: .ASCII /%CANNOT TEST LOAD MEDIUM! !xa/ 
BS fee BI ees fa 

1833 DOPUEE Baus bsrbe 1 

1295 006426 O20S1S 022441 043 

129% 006433 O45 043536 3 SCNTG: .ASCII /xtGe 

1297 006437 O20445 OS1441 SNSWR: ASCII /%K!!SWR= a 

1538 Peete; Colts’ Ba748 OSSSCE SHNEW: ASCII / NEWs #7 

1300 OOB456 o20575 Ba meas . 

130 OOBM6I «ONS 2277 ORLY SQUEST: ASCII :%:x8/ 

1303 sTEST HEADERS#EeeHHERS 

1 22 123 LTIMSG: .ASCII /%XTEST 1: WRITE FROM ODD BYTEs/ 
IES eves ceews owzsey oseiz9 

1307 052111 O2010S 051106 

1308 006510 046517 O47440 042104 

1309 905516 041049 52131 21505 

1319 006524 042524 052123 LT2MSG: .ASCII /%XTEST 2: READ TO ODD BYTEs/ 
i313 Boeess Bator pesove oscli? 

i313 Soceue Gasie> Beoros beusoe 

1314 OOBSSs 043 , 

1315 006557 S205 OSISOG LTINSG: .ASCII /%ZTEST 3: OPI TOO LoNGe/ 
1316 OOe564 Genes 047440 

1317 Oo57e Gwuse0 Ose0N0 047517 

1318 pases, Beties LTMNSG: .ASCII /“ZTEST 4: OPI 100 SHORTe” 
1320 ees N3204e Baaeee pea ifs Te ee ; 

1321 Obse2 Oe0111 Oy 020117 

1322 o44123 051117 021524 

1323 EVEN 

1325 06636 177777 WOATA: 1 

1326 005740 =. 4100 

132? 006740 00000 roata: 6 

1328 o00001 “END 
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DITRED SRE Shoes ANP ance TABLE -- USER SYMBOLS 

BADR  o00067e 3948 S77# SOle# 622% 636% b65* 677% 710% 722% 805 B42 220 

BCNT 00716 aO4s 

BKSE 003212 $84 629 671 716 7708 

Bytes Bpae =r $358 S79x S9e% 623% 6378 666% 678% 711% 723% 9806 B41 878 

CKSUR peeaig Sis 519 5S2 764 802 829 98s 932 952 s«117S8 

ENTLY oos4b2 474 =—s-118S# = =©1202 

¢ 990720 uOS@ 1196% 1207 12238 

CRCNT 3398 890% esse $14 

DCHK  O04022 B00 bt 8898 

Berne Boa BTTE 903 9078 

BCHKES * 904140 809 Slee 

DOHKX  O04222 897 901 9268 

DCHKXX O04242 928 930 9328 

Ber] poe Sass g2e 

Beet Bootee 2 a 

plea? Garin mat 

DOUT 005302 23, 923. «11528 1168 1170 

Bours oes = fe 1155s 1156 i164 

| DouTe 905344 1158 = L1b18 

DOUTS 005352 1160 11628 

| poor gogess 3878  S67* 613% 661% 706% 
582 Eog 641 669 

| ERCHK1 903546 836 8388 

| ERCHK2 003560 839 ule 

Bet Sere an 

| FRenm BOLE Sey bees 

| Bree Se 350 a sax G2bH  b4DE 

| BEex i4 819 2 

 EXECKX 003524 827 8298 

| EXECD 003310 7898 792 

| EXECL 003342 ce 7978 ‘ 

Ba ee i i i 

| EXECS Bel Beds 

| FUN 000700 3978 5S76% S9G# 621% 635% 

| HOREL 900719 HOLe bles 793 820 853 

Ser ‘ 691% 7308 # 732% 

TTR. 0043 Sn nC en se 

TTERO  BONa30 Ste Sess 

| TERY 004336 95 9578 

IT 000662 3908  #SO7* SOB* S34 5S 

| LTADD 505% * 507 509 

Tl 001 413 414 t 

{tie 001742 S7is 574 
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LT1¢. = 002014 Sele 
tHe  Bostie Ot 
LTINSG oe 56? «13058 
L 002146 ui 4BCi“‘«i‘éiC SR 
tise = 0s280 oA andy 
LTeD 6328 39634 
LTee 002324 639 
LTSMSG 613 13108 
002370 Wi? «BO 
CTSA © OOa4I10 6648 = «673 
(738  O02e436 pees 
LT3IT 418 
3NSG 006557 61 13158 
LT3X 002574 685 689 
‘LTA red rise oi8 
thee Baséee 5438 
tiufr  Boseae 43D s7198 
a ee |B 
| MSG1O 008163 797 ~—ss«lebes 
MSG11 006200 e24 12658 
wscie 06220 907 12688 
en ee 86 
iNSGIS  O0BS4 326 13728 
| MSGI6 06254 l 12738 
|M5G17 006255 7. ‘th 668 .712 120 
‘tees 006273 592 ssgMOSC«é«dL2771w# 
'M5G19 006307 680 12808 
'MSG2.  O06D12 7m 12408 
' 006332 
el 906256 4 12888 
| ee 006031 oq sate 
imSGH  O06052 751 e468 
MSGS 006102 753 4«9860 =-:12508 
SS wou eH eset 
1 12568 
Be 8. o 
| MTBC GOES 2648 zee 806 838 #870 
| are gz % a 737% 740% 741 759 771% 773% 774 789 804% §09* 
| MTINT 4 
| ire ieee 23, 4G m 6CoMlhlUC«alClCOSCOSSCPMH—~«C«CD 
/0C™P 05054 is? siSHO)t:ié‘éi7dAt«C*~*<‘«éi‘éwk?#?«O~O~#OCBBLCti«SKSSs«LOH 
| OCTPE OOS 7o 760 863 867 10928 1188 
| OCTPEL 1 10958 ; 
| OCTPG 005236 1104 1107 1114 4118 1223 2128 1130 11378 
—OCTPGO 6905254 1138 1140 1142s 





PCNTR 000670 
PFLG oo0712 
PSw ss OODBIE 
RCNT O00612 
RDATA 006740 
RO PART astec 
RWND 003026 
RWNDX 003172 
RWNDXX 003202 
RWND1  O03062 
RO =x900000 
'R1 =xD00001 
Ls re 
/R3  =7000003 
{ ° 
; 

RY =~000004 
RS =7P00005 
| sour 00676 
| BESPE,  BOMESE 
|SP 2000006 
| BELG 000664 
‘STALL 000636 
| START 001000 
pass 
| ST 001144 
571 = 001304 


P 


DPTAFD-SRe ROSS AE 


OCTPG1 005260 
OCTPO 

. | OCTP 
OCTP. 1 
OCTP3 
= 
a Sie 


T TEST MACY11 e7(732) 


ERENCE TABL 
1099 11438 
1096 098 
1102 1068 
1105 11088 
1100 li3ls 
10S92% 1094% 
1176 1178 
3088 Uae 
SSe# 575# 
638% 641# 
713% 714% 
7E4% 766% 
8S6* gS9e 
Slls 913% 
1001 1031 
1107% 1114% 
1170% 1171 
3938 Soe 
4028 908 
3698 4oSe 
3678 
Ss 591 
4078 1074 
351 4288 
575 620 
Tes 7618 
733 746 
7438 Tay 
3018 346% 
Seck 523% 
ocoy 615% 
963% S64 
3028 463% 
3038 BEYe 
632% o434 
3048 4S4e 
847 862% 
1027 1067% 
1166% 1167% 
3058 443% 
Bode esse 
1 109S# 
1117# 11198 
1146# 1153% 
306% 4628 
3968 S63# 
686 9398 
abe 9438 
: (eee 
a 676% 
Soo8 008 
S04 Sebs 
4518 4B2 
461 473 


11018 


me ee + on + + eee 
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-- USER SYMBOLS 





663* 669% 671% 675% 681% 687% 690% 707% 

7ebe 3 8 727% = =—731% = 750 ex 754 756% 758% 760% 
* 680¢#  §23% ##6cS* 829% 831% 846 84 

865% 867% 869 871% 875% 877 881% 885% 905% 

919% 923 93e# 936%  SHe * 973% 

* 1063 1066 O6S* 1073% 1082% 1085 1099 21048 


1159 1190 119e% 1193% 1197% l206% 1215# 


636 643 677 722 13278 





471% 477% 491# 493% SO1# 502k 503 3 / 514 
page S31# 533 S70# 571 572% 5 
1017% 

807% 


ere Se ee Oe re ee eee Oe 
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DZTNFD. SRC CROSS REFERENCE TABLE -- USER SYMBOLS 







ST 001342 476 484s 

ST 001362 48S 488% 

ST4 001370 448 487 489 
STS an os ane 494 


3708 427% 433 437% 460% 472 $01 3 549 761 799 


6 S22 747 
818, 826 851 882 900 929 940 53 1175 1187 lect 





SWREG 176 18 43? 472 1175 
TBELA vies 1beye 1087 
TeECE Witte 10658 1206 
TCRLFA 004736 10688 1071 
TEMPST 00722 O68 %1191% 1195* 1218* 1219% 12208 12226 122¢ 
TEMP] 4 384e Bide 8ibx 999% “1004 1013s 
TEMPS o00e5e2 3858 462 4 4Ye7* 469 1166 1169 
TEND  O01630 44 u89 sé S28. tté«éS 378 
TENDX 001704 sso - SSee 
X O05016 1 1078 10828 
TIS 00064 i002 #41007 1010 1020 1021 1044* 104@* 1051 1179 11808 1181 41199% 
~, 1199 1203 ell 1213  leelx le22 
TINER OO4%SEE l 1012 102 1029 10358 
TINF  OO0540 3818 
| 000626 3738 «1043x1048 1179 
; TKS 900624 3728. 1042 J04S* 1046 1177 
'TOB  Oo0064e 3858 #490  10Sb* 1057 1059 1061 1065* 1068* 1072 1081 1084" 131% 1144 
115ee 1154" «1157 L162% | 
ToS  ons00e2 1053 1066 #1069 1073 10798 1080 108 1132 1145 
| TPB 00632 3758 1051# 1081" 1159* i6l# 
'TPS 000630. 3748 1049 1079 1155 
| Tp 001414 4998 526 54 
'TS5CD0 «= OD1444 O68 1 
/TSCD1 © O01500 510 Slee 536 
| TSCDe 01512 ise 647 «s«b82tsté«é‘773283 
| TSCD3 001 517 s«§ 198 
Tetra 0007 et 
TNT cay eek 9778 
TIN 10468 1047 
| TTINe 49 10498 1050 
| TTOuT  OO46SE 444 459 ys2s«BD oe. Bee, ee. ee ee, 
BS6 861 865 69 46875 i(i‘iSti«éiSYCSL 1035 10568 
os 1064 - 1076 1088 «=s«484)=s«s48BesC*«é‘édSOD~COC«é«dLL'G 
Treo | ppause iobte 1633 
TTRI  OO4454 1003 10078 
TTRIR 04470 1008 10108 
TTRIB 1 10138 
1 10248 
TT 1 10278 
TTR4 1 10308 
TTRS  OO4SE4 1005 10318 
TIAD 000732 4138 
Tehe- — foorae diss 
131n0 Sob dies 


— — ee ee ee ee eee 


DZTNFO. SRC 


T3AD 
T3IAD 
T4AD 
ines 
UNP 
, WOATA 
1 SCNTG 


SNNEW 


| SGLEST 


OES ED oN. 
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000742 
000746 


JO3 


CROSS REFERENCE TABLE -- USER SYMBOLS 


454 46S 469% 470 466% 488% 737 vA 
$97 614 622 642 665 710 13258 


3188 3208 S228 4 3328 8633980 Se 4982S 3858 


soe ee eC eee 


3598 8664238 13268 


.—_——-- - - - 
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DZTMFO.SR CROSS REFERENCE TASLE -- MACRO NAMES 


CONMEN 
ESCAPE 


315 


8 23se 313 


epee 


nen 
me 
mS 





me a ee ee 


03 
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DZTMFD. SRC CROSS REFERENCE TABLE -- MACRO NAMES 


. SSUPR 28 
. STRAP 18 
- STYPB ls 
STYPO ls 
$TYPE ls 
STYPQ is 
$4OCA 1 
1170 ls 


re er re ce ne ee ee a eee eS 
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DZTMFD.SRC CROSS REFERENCE TABLE -- PERMANENT SYMBOLS 


7 Reo 
BEQ 434 459 482 485 $17 Sel 525 S42 744 777 839 B45 928 954 958 
961 1005 «3861058 )«=—s(«s1060D—«s«é1DbESssi1102Ssisa1S8 = —s Ley 
BGE 1214 
BOR 
Bre 456 468 502 S23 970 1020 1137 1180 1198 
BICB l221 
Ete 1282 486 488 740 773 808 809 1021 1143 
BIT Be “ihe $16 S49 684 738 743 745 747 776 789 818 eS 900 340 
BITB 1157 
BLE S28 
ie Hise 1025 1028 
FAB RAREREREREPBPBEH E&Y 
1836 1338 135 12 3 12 H 941 1003 1023 1071 1087 1096 1098 1138 114 1164 
BPL 7 775 800 827 836 883 930 1047 1050 1080 1156 1178 
a. e33 Pre Pf 1818 1064 1076 1078 css) s(«1093)s—s«d1160—Ss«1 20 iG zig) ss ies 1227 
CLR S46 453 471 49 49 00 ad 70 615 68 78 788 811 813 890 
934 935 9sS 39 1 1042 104 1044 1068 107 1094 1106 11S2 1191 1195 
CNP 433 436 472 S27 a Bl 47 960 969 1024 1027 1175 1181 1207 
CMPB 441 831 834 100e—sisil 101 1057 =: 1059 1061 1199s: 1e03~—Ss lel lel 
ee 477 493 = 633 672 a4 rat S31 816 895 1022 1070 1086 =—s_:1163 1223 
e © om & Bom Bol os ue 
JMP 347 351 445 483 S11 S14 SS4 647 692 733 837 840 886 897 
925 947 364 10 1003 1012 1026 102e9 1100 1105 
me Peake Bee eR eRe 
ee a a a a a a 
8s9 861 863 86 ber 86 8 gee 877 881 885 905 911 913 915 
$17 919 921 is3 932 952 1004 1036 1063 441066 1069 1073 1085 1099.s«1104 
+e ite ite lle 1128 1130 11 1145 1168 1170 1184 1186 1188 1190 1192 
} 
| MOV 350 427 428 4 430 43 437 438 439 440 443 44 449 451 
seee eS eS Ree eRe ee 
PRR RaREBERRR Ea eB & 
ome ee oe eB eee ee 
| SeERBBHRER BERR EB 
$06 $0 Sle 14 916 920 46 5e3 | Bae 048 106 0 1084 1092 
| 1 1183 11 1} ; ithe 11 i162 1 rt thee 1146 1153 1159 1161 1166 1169 
il 11 11 ii il ll lel 
roe Po B58 616 918 See 105) 1056 1065 1072 # 1081 1154 
| ae8 499 S45 S46 S47 S48 S66 581 $95 612 6e5 639 660 674 682 
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705 719 728 736 765, 770 782 787 803 819 830 850 
RESET acs 933 933 943 945 951 968 971 972 977 976 379 
ROL rt $31 10iS. 1017s «1019)ss112D0Ss 1:22) 1166 
Rr st 1110 1111 lile 1116 11es lle6 lle 
RTS 766 783 831 B46 849 936 942 96 973 =: 1031 1038 §8§=6: 1052 
iN 1165 1171 1193 
sue 455 467 1113 1117 llee 1167 . 
ST 447 458 181 503 509 S20 S24 761 793 799 820 826 
533 §7e 882 902 308 927 929 S44 957 962 §=61004 «=: 1097 
TSTB 1 (7 1046 1049 1074 1079 1155 1177 
-ASCII = 1231 1240 8= 1243 1e46 8 8=612e50)06=6—leS2@ Ss 1254 1eS6 =—ss«1 25 126 1265 1268 
1e73 1e74 1277 1280 1284 1288 129i 1296 123 1e9 1301 1305 
-ENABL 1 234 
~END 1328 
-ENDC 316 320 322 
-EVEN 1323 
IF 315 318 320 
- IFF 316 320 see 
«LIST 1 288 3le 
- MACRO oot 
"NLISI 1 288 312 
-REM 4 
a i 
TIT 230 
- WORD 321 
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os ERR FRR RA RRR RE = RAR 


we ~ arr +4 
ehavnnerreas coornrueenne ce sevn tans 
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